home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / System / VirusExecutor / Install_VE < prev    next >
Encoding:
Text File  |  2001-05-02  |  3.3 KB  |  155 lines
  1. ; ************************************************************************
  2. ;
  3. ; $VER: Install 1.02 (18.11.2000)
  4. ; 
  5. ; Install script for VirusExecutor v2.07 Copyright © 2000 Jan Erik Olausen
  6. ;
  7. ; ************************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11. (set #wbversion 0)
  12. (set #wbversion (getversion "libs:version.library"))
  13. (set #wbversion (/ #wbversion 65536) )
  14.  
  15. ;=============================================================================
  16. ; Make sure we are running under a 2.04 ROM
  17.  
  18. (if (< (/ (getversion) 65536) 37)
  19. (
  20.     (abort #bad-kick)
  21. ))
  22.  
  23. (set destination
  24.     (tackon
  25.         (askdir
  26.             (prompt "Please select the path where you want to install\nthe VirusExecutor program.\n\nA drawer named VirusExecutor will be created there.\n")
  27.             (help @askdir-help)
  28.             (default "Work:")
  29.             (newpath)
  30.         )
  31.         "VirusExecutor"
  32.     )
  33. )
  34. (set @default-dest destination)
  35.  
  36. (copyfiles
  37.     (source "")
  38.     (dest destination)
  39.     (pattern "VirusExecutor#?")
  40.     (infos)
  41.     
  42. )
  43.  
  44. (copyfiles
  45.     (source "JEOPlay")
  46.     (dest "C:")
  47.     
  48. )
  49.  
  50. (copyfiles
  51.     (source "Sounds")
  52.     (dest (cat destination "/Sounds"))
  53.     (pattern "#?")
  54. )
  55.  
  56. ;************************
  57. ;** VirusExecutor.info **
  58. ;************************
  59.  
  60. (if (< #wbversion 44)    ; Not OS 3.5?
  61.     (copyfiles
  62.         (source "Icons/Glow/VirusExecutor.info")
  63.         (dest (destination))
  64.     )
  65. )
  66. (if (> #wbversion 43)    ; Yes! OS 3.5
  67.     (copyfiles
  68.         (source "Icons/Glow/VirusExecutor.info")
  69.         (dest (destination))
  70.     )
  71. )
  72.  
  73. ;*********************
  74. ;** Libraries stuff **
  75. ;*********************
  76.  
  77.  
  78. (copylib
  79.     (prompt "This will copy the 'xvs.library' to your LIBS: directory.")
  80.     (source "libs/xvs.library")
  81.     (help "VirusExecutor uses the 'xvs.library' to find and remove virus.")
  82.     (confirm)
  83.     (dest "LIBS:")
  84. )
  85.  
  86. ;******************
  87. ;** Locale stuff **
  88. ;******************
  89.  
  90.       (set lang
  91.         (askoptions
  92.           (prompt "Which languages do want installed?")
  93.         (help "Checkmark the languages you want installed, and click Proceed.")
  94.           (choices "Dansk" "Deutsch" "Français" "Italiano" "Magyar" "Norsk" "Polski" "Português" "Slovak" "Svenska")
  95.           (default 0)
  96.       ))
  97.  
  98.       (set n 0)
  99.  
  100.       (while (set language (select n "Dansk" "Deutsch" "Français" "Italiano" "Magyar" "Norsk" "Polski" "Português" "Slovak" "Svenska" ""))
  101.       (
  102.           (if (IN lang n)
  103.              (copyfiles
  104.                   (source (cat "catalogs/" language "/VirusExecutor.catalog" ))
  105.                   (dest (cat "LOCALE:catalogs/" language ))
  106.                   (all)
  107.               )
  108.           )
  109.           (set n (+ n 1))
  110.       ))
  111.  
  112. ;*****************
  113. ;** Guide stuff **
  114. ;*****************
  115.  
  116. (set guide
  117.    (askoptions
  118.       (prompt "What guide would you like to install?")
  119.       (help
  120.         "This will install the VirusExecutor docs."
  121.       )
  122.       (choices "English" "Français")
  123.       (default 1)
  124.    )
  125. )
  126.  
  127. (if (bitand 1 guide)
  128.     (copyfiles
  129.         (source "Docs/VirusExecutor.guide")
  130.         (dest (cat destination))
  131.         (infos)
  132.     )
  133. )
  134.  
  135. (if (bitand 2 guide)
  136.     (copyfiles
  137.         (source "Docs/VirusExecutor_fr.guide")
  138.         (dest (cat destination))
  139.         (infos)
  140.     )
  141. )
  142.  
  143. ;********************
  144. ;** s:user-startup **
  145. ;********************
  146.  
  147. (startup "VirusExecutor"
  148.     (prompt "An assign is needed in to your \"s:user-startup\" file.")
  149.     (help @startup-help)
  150.     (command "if exists \"" destination "\"\n")
  151.     (command "   assign VirusExecutor: \"" destination "\"\n")
  152.     (command "   endif\n")
  153.     (command "endif")
  154. )
  155.